home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ppfont10 / ppfont.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  3.4 KB  |  123 lines
  1. Global Const LF_FACESIZE = 32
  2. Global Const LF_FULLFACESIZE = 64
  3.  
  4. Global Const RASTER_FONTTYPE = &H1
  5. Global Const DEVICE_FONTTYPE = &H2
  6. Global Const TRUETYPE_FONTTYPE = &H4
  7.  
  8. Type NEWLOGFONT
  9.     lfHeight As Integer
  10.     lfWidth As Integer
  11.     lfEscapement As Integer
  12.     lfOrientation As Integer
  13.     lfWeight As Integer
  14.     lfItalic As String * 1
  15.     lfUnderline As String * 1
  16.     lfStrikeOut As String * 1
  17.     lfCharSet As String * 1
  18.     lfOutPrecision As String * 1
  19.     lfClipPrecision As String * 1
  20.     lfQuality As String * 1
  21.     lfPitchAndFamily As String * 1
  22.     lfFaceName As String * LF_FACESIZE
  23.     lfFullName As String * LF_FULLFACESIZE   'truetype only
  24.     lfStyle As String * LF_FACESIZE          'truetype only
  25. End Type
  26.  
  27. ' weight values
  28. Global Const FW_DONTCARE = 0
  29. Global Const FW_THIN = 100
  30. Global Const FW_EXTRALIGHT = 200
  31. Global Const FW_LIGHT = 300
  32. Global Const FW_NORMAL = 400
  33. Global Const FW_MEDIUM = 500
  34. Global Const FW_SEMIBOLD = 600
  35. Global Const FW_BOLD = 700
  36. Global Const FW_EXTRABOLD = 800
  37. Global Const FW_HEAVY = 900
  38.  
  39. Global Const FW_ULTRALIGHT = FW_EXTRALIGHT
  40. Global Const FW_REGULAR = FW_NORMAL
  41. Global Const FW_DEMIBOLD = FW_SEMIBOLD
  42. Global Const FW_ULTRABOLD = FW_EXTRABOLD
  43. Global Const FW_BLACK = FW_HEAVY
  44.  
  45. ' CharSet values */
  46. Global Const ANSI_CHARSET = 0
  47. Global Const DEFAULT_CHARSET = 1
  48. Global Const SYMBOL_CHARSET = 2
  49. Global Const SHIFTJIS_CHARSET = 128
  50. Global Const HANGEUL_CHARSET = 129
  51. Global Const CHINESEBIG5_CHARSET = 136
  52. Global Const OEM_CHARSET = 255
  53.  
  54. ' OutPrecision values */
  55. Global Const OUT_DEFAULT_PRECIS = 0
  56. Global Const OUT_STRING_PRECIS = 1
  57. Global Const OUT_CHARACTER_PRECIS = 2
  58. Global Const OUT_STROKE_PRECIS = 3
  59. Global Const OUT_TT_PRECIS = 4
  60. Global Const OUT_DEVICE_PRECIS = 5
  61. Global Const OUT_RASTER_PRECIS = 6
  62. Global Const OUT_TT_ONLY_PRECIS = 7
  63.  
  64. ' ClipPrecision values */
  65. Global Const CLIP_DEFAULT_PRECIS = &H0
  66. Global Const CLIP_CHARACTER_PRECIS = &H1
  67. Global Const CLIP_STROKE_PRECIS = &H2
  68. Global Const CLIP_MASK = &HF
  69. Global Const CLIP_LH_ANGLES = &H10
  70. Global Const CLIP_TT_ALWAYS = &H20
  71. Global Const CLIP_EMBEDDED = &H80
  72.  
  73. ' Quality values */
  74. Global Const DEFAULT_QUALITY = 0
  75. Global Const DRAFT_QUALITY = 1
  76. Global Const PROOF_QUALITY = 2
  77.  
  78. ' PitchAndFamily pitch values (low 4 bits) */
  79. Global Const DEFAULT_PITCH = &H0
  80. Global Const FIXED_PITCH = &H1
  81. Global Const VARIABLE_PITCH = &H2
  82.  
  83. ' PitchAndFamily family values (high 4 bits) */
  84. Global Const FF_DONTCARE = &H0
  85. Global Const FF_ROMAN = &H10
  86. Global Const FF_SWISS = &H20
  87. Global Const FF_MODERN = &H30
  88. Global Const FF_SCRIPT = &H40
  89. Global Const FF_DECORATIVE = &H50
  90.  
  91. Type NEWTEXTMETRIC
  92.     tmHeight As Integer
  93.     tmAscent As Integer
  94.     tmDescent As Integer
  95.     tmInternalLeading As Integer
  96.     tmExternalLeading As Integer
  97.     tmAveCharWidth As Integer
  98.     tmMaxCharWidth As Integer
  99.     tmWeight As Integer
  100.     tmItalic As String * 1
  101.     tmUnderlined As String * 1
  102.     tmStruckOut As String * 1
  103.     tmFirstChar As String * 1
  104.     tmLastChar As String * 1
  105.     tmDefaultChar As String * 1
  106.     tmBreakChar As String * 1
  107.     tmPitchAndFamily As String * 1
  108.     tmCharSet As String * 1
  109.     tmOverhang As Integer
  110.     tmDigitizedAspectX As Integer
  111.     tmDigitizedAspectY As Integer
  112.     ntmFlags As Long
  113.     ntmSizeEM As Integer
  114.     ntmCellHeight As Integer
  115.     ntmAvgWidth As Integer
  116. End Type
  117.  
  118. ' ntmFlags field flags
  119. Global Const NTM_REGULAR = &H40
  120. Global Const NTM_BOLD = &H20
  121. Global Const NTM_ITALIC = &H1
  122.  
  123.